Những câu hỏi liên quan
Quandung Le
Xem chi tiết
Trâm Nguyễn Thị Ngọc
21 tháng 12 2018 lúc 16:33

Var

i,d,n :integer;

a:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>0 then d:=d+1;

write('mang A co :',d,'so nguyen duong');

readln

end.

Bình luận (0)
Nguyễn Đức Dương
Xem chi tiết
le vu nhat minh
13 tháng 4 2018 lúc 21:42

hinh nhu sai de

Bình luận (0)
Nguyễn Thu Hiền
Xem chi tiết
Nguyễn Thu Hiền
Xem chi tiết
Nguyễn Thu Hiền
5 tháng 2 2017 lúc 14:55

chuc mung xinh nhat thu thao

Bình luận (0)
nguyen tien hai
Xem chi tiết
Le Thi Thanh
Xem chi tiết
Nguyễn Thu Huyền
Xem chi tiết
Ngu Huyen Thanh
Xem chi tiết
Ngu Huyen Thanh
4 tháng 2 2017 lúc 21:08

Các bn ơi!! ko pải 2018 đâu nhà là 2018 đó

Bình luận (2)
tôi là thợ săn ma
Xem chi tiết
zZz Nam Cao zZz
27 tháng 3 2016 lúc 15:29

k rồi mk giải cho

Bình luận (0)
tôi là thợ săn ma
27 tháng 3 2016 lúc 15:30

giải đi rồi hứa sẽ k

Bình luận (0)
Hội Mê Ma Quỷ
27 tháng 3 2016 lúc 15:36

thợ săn ma kìa 

Bình luận (0)